home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / INTERRUP.SWG / 0005_REG1.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  598b  |  24 lines
  1.  
  2.   Registers Demo
  3.  
  4. PB>        Procedure GetScreenType (Var SType: Char);
  5. PB>        Var
  6. PB>          Regs: Registers;
  7. PB>        begin
  8. PB>          Regs.AH := $0F;
  9. PB>          Intr($10, Regs);
  10. PB>          if Regs.AL = 7 then
  11. PB>              sType := 'M';        <<<<<
  12. PB>          else
  13. PB>              sType := 'C';
  14. PB>        end;
  15.  
  16.    This Procedure would be ideal For a Function...
  17.            Function GetScreenType:Char;
  18.            ...
  19.            if Regs.AL=7 then
  20.               GetScreenType := 'M'
  21.            else
  22.               GetScreenType := 'C';
  23.            ...
  24.